home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d15 / mjshel40.arc / MJSHEL40.BAT < prev    next >
Encoding:
DOS Batch File  |  1991-09-02  |  3.2 KB  |  94 lines
  1. @Echo off
  2. cls
  3. If exist MJSHEL40.RES DEL MJSHEL40.RES
  4. If x%1==xZIP goto ZIP
  5. If x%1==xPLAY goto PLAY
  6. If x%1==xUNZIP goto UNZIP
  7. If x%1==xTMP goto ZIPDIR
  8. goto FAIL
  9. :ZIP
  10. cls
  11. ECHO.
  12. ECHO.
  13. ECHO                    ╔════════════════════════════════════════╗
  14. ECHO                    ║                                        ║
  15. ECHO                    ║     Mah Jongg Tile Set Manager 4.0     ║
  16. ECHO                    ║      is creating or updating your      ║
  17. ECHO                    ║          ZIPped Tile Sets.             ║
  18. ECHO                    ║     This may take a few minutes!       ║
  19. ECHO                    ║                                        ║
  20. ECHO                    ║                                        ║
  21. ECHO                    ╚════════════════════════════════════════╝
  22. ECHO. 
  23. pkzip -u mah_tiles *.til
  24. If ErrorLevel 1 goto FAIL
  25. del *.TIL
  26. goto SUCCESS
  27. :PLAY
  28. If x%2==xNo goto playmah
  29. cls
  30. ECHO.
  31. ECHO.
  32. ECHO                    ╔════════════════════════════════════════╗
  33. ECHO                    ║                                        ║
  34. ECHO                    ║     Mah Jongg Tile Set Manager 4.0     ║
  35. ECHO                    ║       is unZIPping your selected       ║
  36. ECHO                    ║              Tile Set.                 ║
  37. ECHO                    ║                                        ║
  38. ECHO                    ║   Your game will start momentarily!    ║
  39. ECHO                    ║                                        ║
  40. ECHO                    ╚════════════════════════════════════════╝
  41. ECHO. 
  42. pkunzip -o mah_tiles %3 >NUL
  43. If Errorlevel 1 goto FAIL
  44. :playmah
  45. mahjongg %4 %5 %6 %7 %8 %9 -u%3
  46. If x%2==xNo goto SUCCESS
  47. del %3
  48. goto SUCCESS
  49. :UNZIP
  50. cls
  51. ECHO.
  52. ECHO.
  53. ECHO                    ╔════════════════════════════════════════╗
  54. ECHO                    ║                                        ║
  55. ECHO                    ║     Mah Jongg Tile Set Manager 4.0     ║
  56. ECHO                    ║ is unZIPping your Mah Jongg Tile Sets. ║
  57. ECHO                    ║                                        ║
  58. ECHO                    ║     This may take a few minutes!       ║
  59. ECHO                    ║                                        ║
  60. ECHO                    ║                                        ║
  61. ECHO                    ╚════════════════════════════════════════╝
  62. ECHO. 
  63. PKUNZIP MAH_TILES *.TIL
  64. If Errorlevel 1 goto FAIL
  65. If exist MAH_TILES.ZIP del MAH_TILES.ZIP
  66. If exist MJSHEL40.DIR del MJSHEL40.DIR
  67. goto SUCCESS
  68. :ZIPDIR
  69. cls
  70. ECHO.
  71. ECHO.
  72. ECHO.
  73. ECHO                    ╔════════════════════════════════════════╗
  74. ECHO                    ║                                        ║
  75. ECHO                    ║     Mah Jongg Tile Set Manager 4.0     ║
  76. ECHO                    ║                  is                    ║
  77. ECHO                    ║        creating a directory of         ║
  78. ECHO                    ║                 your                   ║
  79. ECHO                    ║          ZIPPED Tiles Sets             ║
  80. ECHO                    ║                                        ║
  81. ECHO                    ╚════════════════════════════════════════╝
  82. ECHO. 
  83. PKZIP -VBN MAH_TILES >MJSHEL40.TMP
  84. If Errorlevel 1 goto FAIL
  85. goto SUCCESS
  86. :FAIL
  87. echo FAIL >MJSHEL40.RES
  88. goto END
  89. :SUCCESS
  90. echo OK >MJSHEL40.RES
  91. :END
  92. exit
  93.  
  94.